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LIBSBINARY_TREE = Subroutines to manipulate bal 16-50 9300-138) 99: 33 93 AX-11 Bliss-32 V 
14-Sep-1984 6 LIBRTL.SRC (18BYN 


AUTHOR: Benn L. Schreiber, CREATION DATE: 08-May-1981 
MODIFIED BY: 
1-001 - Original. BLS 08-May-1981 


; 1 0001 O XTITLE ‘LIBSBINARY_TREE = Subroutines to manipulate balanced binary trees’ 

; ¢ i MODULE LIBSBINARY TREE an 

; ? 4 {BENT = '1-001' i File: LIBBINTRE.B32 Edit: 8LS1001 
BS. 9009 1 BEGIN 

: , 0007 } Bie cee Don hee carte tee en eee 
Ps hal * 
; 9 0009 1 !* COPYRIGHT (c) 1978, 1980, 1982, 1984 8 ‘ 
; 0010 1 i* DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. * 
3 1 Bat : :* ALL RIGHTS RESERVED. . 
; 4 a 
3 ig 601 1 !e ile SOF TWARE fs FURNISHED UNDER A LICENSE AND MAY BE USED AND copies * 
3 0014 1! Y IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 
s 0015 1 !* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
H 16 0016 1 !* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
H 17 0017 1 !* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY ® 
3 Ys Bag : is TRANSFERRED. ‘ 
Py : ca 
3 $9 0020 1 !* poe INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
: 1 0021 1 !* SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
: $6 + ¢ : :* CORPORATION. ~ 
; 24 0094 1 ie DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
; 25 0025 1 !* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 
Py 26 0026 1 !* * 
; e7 0027 1 !« * 
4 $8 it : aia attain inniaininiainlaincinniniaataicintianh nba 
: $0 0080 | 

ee) 0031 1 !++ 

; $ O36 1 ' FACILITY: General Utility Library 

a 0033 1} 

5 $0 0034 1 ' ABSTRACT: 

3 5 0035 1! 

; <0 Ones : These procedures allow easy manipulation of balanced binary trees 

; 8 0038 1 ' ENVIRONMENT: Runs at any access mode - AST reentrant 

; 0039 1 

; 1 i 

3 1} 

5 1! 

5 1! 

5 1 i- 

3 1 


_ 
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BSBINARY_TREE LIBSBINARY_TREE = Subroutines to manipulate bal 1b-Se- 


GENERAL, NONEXTERNAL = 


-001 Declarations -Sep- 
s 68 047 1 XZSBTTL ‘Declarations’ 
; 49 048 1! 
3 0 Be 1 ! SWITCHES: 
.- ba) 
3 6 8226 1 SWITCHES ADDRESSING_MODE (EXTERNAL = 
3; 2 0055 1 
s; 55 0054 1! 
; 0055 1 ! LINKAGES: 
.. 4 oy eit 1! 
. 2 0057 1 
; Boas 1 LINKAGE 
; 60 9 1 jsb_insert = JSB : 
a 0060 1 GLOBAL (currentnode = 11, 
; § 0061 1 keyname = 10 
.- € 0062 1 compare_routine = 9, 
3 0065 1 alloc_routine = 8, 
; & 0064 1 blockretadr = 7, 
; 66 0065 1 foundintree = 6 
; 7 00 1 controlflags = § 
; | (68 0067 1 user_context = 45 
; Ww 0068 1 PRESERVE (2,3), 
; 70 0069 1 : 
a a 0070 1 jsb_traverse = JSB (REGISTER = 0) : 
3 72 0071 1 GLOBAL (action_ routine z 11, 
Tee 0072 1 user_context = 10) 
s 6h 0073 1 NOTUSED 0. 374,5,6,7,8,9); 
3; 675 0074 1 
: 76 0075 1! 
3 77 0076 1 ! TABLE OF CONTENTS: 
. 0077 1! 
; 79 0078 1 
HY 80 0079 1 FORWARD ROUTINE 
; 8 0080 1 insert_node : jsb_insert, 
:. 0081 1 Lib$Sinsert_tree, 
2 oe 0082 1 LibSlookup_tree, 
3; =B4 0083 1 traverse_tree : jsb_traverse, 
; 85 0084 1 Lib$Straverse_tree; 
; 686 0085 1 
5s 687 0086 1! 
; & 0087 1 ! INCLUDE FILES: 
3 9 0088 1! 
ee 0089 1 
3 9 0090 1 LIBRARY ‘RTLSTARLE'; 
; 3 0091 1 
;. ¥ 3096 1 REQUIRE 'RTLIN:RTLPSECT'; 
; 94 87 1 
3 88 1! 
; 9 89 1 ! MACROS: 
3 90 1! 
: 91 «#1 
HY 8 1 MACRO 
s 93 1 ' 
; 3e ! } Define offsets in basic node 
3 36 1 NODESL LEFT = 0,0 0538 0% 
; 97 1 NODESL-RIGHT = é 


1986 99:38:26 ETente seed ieelnin 


WORD _RELATIVE); 


'Linkage for INSERT_NODE 


'Linkage for traverse 


‘Insert node into tree 

‘Entry point to insert node 

‘Entry point to lookup node 

‘Internal routine to insert into tree 
‘Entry point to traverse tree 


! System symbols, typically from SYS$SLIBRARY:STARLET.L32 


' Define PSECT declarations macros 


‘Left subtree pointer 
‘Right subtree pointer 


L ISSBIMARY TREE L 
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IBSBINARY_TREE = Subroutines 


a ee ee dd ed dd wd od dd od dd 


NODESW.BAL = 8.0,16,1% 
NODESL-PTR = 6063518 


to manipulate bal ! 


1984 98:38:05 YMG OLiesHzv4s tee. 


‘Current node balance 
'Pointer to user data 


! Define flags in control_flags argument to Lib$Sinsert_tree 


TREESV_INS_DUP = 0,0,1,0%; 
! 


EQUATED SYMBOLS: 


LITERAL 
true = 1 
false = 6; 
FIELDS: 
NONE 


PSECTS: 


DECLARE_PSECTS (LIB); 
1 

i OWN STORAGE: 

NONE 

EXTERNAL REFERENCES: 


EXTERNAL LITERAL 


Lib$_keynot fou, 
Lib$_insvirmem; 


'Insert duplicates 


'Success 
'Failure 


! Declare PSECTs for LIB$ facility 


'Success 

‘Key already inserted--not reinserted 
'Key not foun 

‘Insufficient virtual memory 
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tion 14-Sep-1984 
BSBTTL "Data Structure Description’ 
i A node is structured as follows: 


LIBR 


Left link ; (4 bytes) 
; Right Link (4 bytes) 
Your data ! Balance i (2 bytes) 


i , i 
i i 
i : i 
i 2 ee oe Ewe weer ens wre eee a i 

Therefore, any data structures you declare that will be 
manipulated by these routines must contain 10 bytes of 
reserved data at the beginning for the binary tree routines. 


These routines can be used for data allocated in one of two ways: 


1) The node (described above) is followed immediately by your data. 
In this case your allocation routine must allocate a block 
equal in size to the sum of your data + 10 node bytes. 


2) The node which is allocated contains the data described above 
and a longword pointer to your data. This is useful if 
some data must be entered into two or more tables 
simultaneously. The user_data argument passed to Lib$Sinsert_tree 
should be the address of the data, which will be passed to 
your compare and allocated routines. The allocate routine 
he a stores this user_data in the field of the allocated 
node. 
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IBSBINARY_TREE LIBSBINARY_ TREE = Subroutines to manipulate bal 1b-52 1984 00:38:05 AX-11 Bliss-32 V4.0-74 Page 5 
4-001 INSERT_NODE = insert node into balanced tree 14-Sep-19 4 99:38:38 LIBRTL.SRC (1eBINTRE 692: 1 . (4) 
> «6181 a 1 ZSBTTL_ ‘INSERT_NODE = insert node into balanced tree’ | 
_ ¢ 75 1 ROUTINE insert_fode : jsb_insert = 

Py. % 74 BEGIN 

> «184 75 : 
t 186 6 Recursive routine to insert the new node into the tree 

; 187 A: { IMPLICIT INPUTS: 

; 189 0 i currentnode Current node in tree walk 

; 190 0281 : keyname Address of key 

; 9 § : compare_routine Address of routine to compare key with current node 

: 136 , alloc_routine Address of routine to allocate new node 

: Pt ¢ : blockretadr Address to return allocated node 

3 195 0 Bg ; ROUTINE VALUE: 

: 197 0288 i true C=1) Tree is balanced 

: 138 8 34 } false (C=0) Tree not balanced 

: 200 0291 2 LOCAL 

> 201 0 3g down_left : REF BLOCKC BYTE) 'Pointer to left son 

; g0¢ 029 downright : REF BLOCK BYTES iPointer to right son 

; 20 0294 save_current : REF BLOCKL,BYTE), !'Temp to save currentnode 

; 204 0295 status, ‘Return status from calls 

; Soe 8 38 in_balance; 'True if subtree in balance 

: 207 0298 2 EXTERNAL REGISTER 

; 208 0299 currentnode = 11 : REF BLOCKC,BYTE], ‘Pointer to current node 

3 eo 0300 keyname = 10 : REF VECTORL,BYTE), 'Pointer to new ke . 

; 210 0301 compare_routine = 9, ‘Address of caller's compare routine 

; 211 Bang alloc_routine = 8, ‘Address of caller's allocate node routine 

3 sig b38 blockretadr = 7 : REF VECTORL,LONG], ‘Address to return result to caller 

s 21 0304 foundintree = 6 'True if entry found in tree, false if inser 
3 sie 0305 controlflags = § : BLOCKL4,BYTE), ‘User control flags 

; 215 0306 user_context = 4; 'User context to pass to allocate node and c 
Be ER 

; $i 0309 2! Check for bottom of tree 

3 $32 0310 ! 

: 220 0311 IF .currentnode EQL 0 

3 $$} b3i¢ THEN BEGIN 

; $$ 031 IF NOT (.alloc_ routine) (.keyname,save_current,.user_context) ‘Allocate a node 

: $$? gate TMEN CS TURN Hageman = Lib$_insvirmem); Ra gn error Hy . memory is 
3 currentnode = .save_current; 'Se as the current node 

: $36 O36 currentnode(node$l_Teft) = 0; 'Initialize the node pointers 

5 $$$ oai2 currentnode(node$l—right] = 6; 

; 0318 currentnodeLnode$w_bal] = 0; ! and the node balance 

: 228 0319 blockretadr([0) = .currentnode; 'Return address to caller 

: 9 03 RETURN false ‘Return tree not balanced 

: 231 ' ; 

3 § 5 § ; Check if key is to the left or right subtree 

: 3 6 5 Save_current = .currentnode; 'Save address of current node 

: 36 03 § IF Cin balance = S-compere_reut ine) (.heynane,.currentnede ey) eee 'Call caller's compare routine 

; -user_contex 

3 @ : 8 THEN BEGIN 
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LIBSBINARY TREE = Subroutines to manipulate bal 16-Sep-1984 00:38:05 AX-11 Bliss-32 V4.0-74 Page 6 
INSERT_NODE - insert node into balanced tree 122868718 4 99:38:58 LIBRTL.SRC (Tee INTRE.692:1 ’ (4) 
! 
6 ; Insert the node into the left subtree 
§ IF .in balance EQL 0 'First check if this is really it | 
8 AND NOT .controlflags(tree$v_ins_dup] ! and that duplicates are not to be 
8 : : THEN BEGIN 
8 § 4 ! We found a match in the table, and caller requested that 
beeh ? duplicates are not to be inserted 
0339 4 blockretadr(0] = .currentnode; ! and if it is return to caller | 
8 ‘9 per UnN (foundintree = Lib$_keyalrins) 
8 1} currentnode = .currentnode(node$i_left); 'Insert into left subtree 
4 in_balance = insert_node(); 'Recurse to insert 
0344 4 IF~(.foundintree EQC Libs keyatrins) iIf we found it 
0345 4 OR (.foundintree EQL Tib$_insvirmem) 
0346 THEN RETURN true; ! then we are done 
0347 down_left = .currentnode; 'Save address of new subtree 
0348 currentnode = .save_current; ‘Return to father node 
0349 currentnode(node$l_Teft] = .down_left; ‘Father points to new left subtree 
0350 IF .in_balance ‘If tree is in balance 
0351 THEN RETURN true ! then all done, return true 
0326 : ELSE BEGIN 
b32¢ 2 } The left subtree has grown higher, restore balance 
0356 4 currentnode(node$w_bal] = .currentnode(node$w_bal] - 1; ‘Perform left shift of tree 
0357 4 IF .currentnode(node$w_bal] EQL 0 ! If in perfect balance 
0358 4 THEN RETURN true ! then return in balance 
0359 5 ELSE BEGI 
0360 5 IF .currentnode[node$w_bal] ‘Exit if AVL balanced 
0361 5 THEN RETURN false; ! Return tree not in balance 
B08 5 down_left = .currentnode(node$l_left]; 'Get left subtree 
0363 5 IF .down_leftCnode$w_bal] LSS 0 ‘Test balance of left subtree 
0364 6 THEN BEGIN 
0365 6 ! 
tre) ? : Perform single LL rotation 
0368 6 currentnode(node$l_left] = .down_leftCnode$l_right]; 
0369 6 down_left(node$l right) = ,currentnode: 
0370 6 currentnode(node$w_bal] = 0; ‘Mark in balance 
0371 6 currentnode = .down left; 'Set new root of subtree 
0376 6 currentnode[node$w_Bal] = 0; ‘Mark in balance 
73 6 RETURN true ‘Return tree in balance 
oare 6 END 
0375 6 ELSE BEGIN 
B36 6 : 
8 A ? Perform double LR rotation 
0379 6 qoun_rigne = .down_left(node$l_right]; 'Get right son of left subtree 
0 6 down" left(node$i_right) = .down_rightLnode$l_left); 
1 6 down_right(node$T_left]_= .down_left; > 
é 6 currentnod Cnode$T_left) = .down_right(node$l_rightd; 
6 down_right podest right = .currentnode; re ie 
tf 6 currentnode([node$w_bal] = 0; 'Initialize to balanced 
0385 6 down_leftC(node$w_bal) = 0; 
| 
| 
| 
J 
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IBSBINARY_TREE LIBSBINARY TREE = Subroutines to manipulate bal 16-Sep-1984 00:38:05 AX-11 Bliss-32 V4.0-74 Page 
5-001 INSERT_NODE - lasort node into balanced tree 1228087138 99:38:58 LIBRTL.SRC (ise INTRE B82; . (4) 
; § 6 IF .down_right(node$w_bal] GTR 0 'Check balance of new subtree 
; 4] 6 THEN down_leftlnode$w_bal] = -1 ! Mark left side heavy 
; @ : 6 ELSE IF .down_right(ndde$w_bal] LSS 0 
; 298 6 THEN currentnode([node$w_bal] = 1; ! Mark left side heavy 
: 299 90 6 currentnode = .down_right; 'Set new root of subtree 
; 300 91 6 currentnode([node$w_bal] = 0; 'Mark in balance 
; 301 3 6 RETURN true 'Return tree in balance 
; O¢ 039 3 END 
; 30 8 94 END 
; 304 95 4 END 
3; me 039 END 
: 309 Seon © | snsert node fate the right out 
: ! Insert node into the right subtree 
: 308 0399 3 | : 

; 309 0400 ELSE BEGIN 

: 310 0401 currentnode = .currentnode(node$l_right); 'Insert into right subtree 

; 311 040 in_balance = insert_node(); ‘Insert the node 

3 \¢ 0405 4 IF~(.foundintree EQC Libs keyatrins) 'If we found it 

: 31 0404 4 OR (.foundintree EQL Tib$_insvirmem) 

; «314 0405 THEN RETURN true; ! then we are done 

; 315 0406 down_right = .currentnode; 'Save address of new subtree 
; 316 0407 currentnode = .save_current; ‘Restore father 

: 6ST 0408 currentnode(node$l_right] = .down_right; 'Father points to new right subtree 
; 318 0409 IF .in balance 'If tree is balance 

; 319 0410 THEN RETURN true ! Then return so 

: $50 pelt ? ELSE BEGIN 

; 30¢ bat § 2 The right subtree has grown higher -- restore balance 

> 324 0415 4 currentnode([node$w_bal) = .currentnode[node$w_bal] + 1; !Perform right shift of tree 
s wee 0416 4 IF .currentnode(node$w_bal] EQL 0 

: 326 0417 4 RETURN true; ‘Return in balance 

3 Ser 0418 4 IF .currentnode(node$w_bal] ‘Exit if AVL balanced 

; $56 0419 4 THEN RETURN false; ‘But mark not in balance 

3 3ey 0420 4 down_right = spurcentaets node$l_right]; ‘Get pointer to right subtree 
3; 320 0421 4 IF .down_right(node$w_bal] GTR 0 'Test balance on that side 

3; 33) OO$5 5 THEN BEGIN 

; 3 0425 5 : : 

; $7 0495 2 Perform single RR rotation 

3 359 0426 5 algae prs pane mt rights = .down_right(node$l_left]; 

3 ase 0427 down_right(node$l_Te# } = ,currentnode; 

3 Sor 0428 currentnode(node$w_bal] = 6; ‘Mark in balance 

3 3 Bs 9 currentnode = .down ret: 'Set new root of subtree 

3 C) 430 currentnode(node$w_Bal] = 0; ‘Mark in balance 

3 0 0431 RETURN true ‘Return tree in balance 

; 1 Bees END 

; rt} 0434 ELSE BEGIN 

: ‘ i ; } Perform double RL rotation 

: 346 4 $ down_left = .down_right(node$l_left); : 'Get left son of right subtree 
: 7 38 doun_rightCnodesl.\e t] = .down_lefttnode$t_right); 

: 348 439 down_left(node$l right) = Coun fants 

; 349 440 currentnode nodes! -rignt) = .down_left(node$l_left); 

; 300 44) down_leftLnode$l_ left) = sgurrentnesa: o<-S : 

; «351 0442 5 currentnode(node$w_bal) = 0; 'Initialize balance indicators 
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down_right(node$w_bal) =_0 


THEN down righttn 

ELSE -down_left 
THEN currentnode 

currentnode = .down_l 


currentnode(nodeSw_ 
RETURN true 


4 00:38:05 AX-11 Bliss-32 V4.0-74 
127808-1 3b 0: 38:93 CTBRTL. SREdL TSB INTSE 69251 (4 
bal) LSS 'Check balance of new subtree 
ge wbalJ = 'Mark right side heavy 
node$w_balJ ¥ 0 
node$w_bal] = -1; ‘Mark left side heavy 
eft; 'Set new subtree 
Balj = 0; 'Mark subtree in balance 
'Return tree in balance 
'Of insert_node 
-TITLE LIBSBINARY_TREE LIBSBINARY_TREE = Subroutines t 
© manipulate bal 
-IDENT \1-001\ 
-EXTRN LIBS_NORMAL, LIBS_KEYALRINS 
-EXTRN LIBS{KEYNOTFOU, LIB$_INSVIRMEM 
-PSECT _LIBSCODE,NOWRT, SHR, PIC,2 
52 DD 00000 INSERT_NODE: 
cars R2 ; 0273 
5E 04 C2 00002 SUBL #4, SP $ 
5B 05 00005 TSTL — 3; 0311 
4 12 00007 BNEQ $ : 
4 DD 00009 PUSHL USER_CONTEXT ; 0313 
04 AE 9F 00008 PUSHAB SAVE_CURRENT : 
5A DD OO000E PUSHL oer E 3 
68 03 FB 00010 CALLS #5, (ALLOC_ROUTINE) é 
09 50 €8 00013 BLBS 3 
56 000000006 8F 00 00016 MOVL § #LIBS_INSVIRMEM, FOUNDINTREE > 0314 
2F 11 00010 BRB 5$ : 
58 6E DO OOOTF 1$: MOVL SAVE_CURRENT, CURRENTNODE ; 0315 
6B 7C 00022 CLRO  § (CURRENTNODES > 0316 
08 AB B4 00024 CLRW 8 (CURRENTNODE) ; 0318 
67 58 0 00027 MOVL CURRENTNODE, (BLOCKRETADR) 3; 0319 
QO10E 31 OO02A ¢: BRW 19 ; 0320 
6E 5B 00 0002D 3$: MOVL CURRENTNODE, SAVE_CURRENT ; 0325 
54 0D 000 PUSHL USER_CONTEXT : 0327 
7E 5A 70 B08 ¢ MOVa Mer (SP) : 0326 
69 03 F 00 CALLS #5, (COMPARE _ROUTINE) : 
50 D B28 TSTL IN_BALANCE 3; 0327 
03 (1 b6 A BLEQ 4$ 3 
0085 31 Bp C BRW 10$ 3 
1 is OOSF 4$: BNEQ 6$ 3 @ ¢ 
10 2 E Boe. BLBS CONTROLFLAGS, 6$ 3 9 
67 B 00 00044 MGVL CURRENTNODE, (BLOCKRETADR) ; 0339 
56 000000006 er DO 00047 MOVL &#LIB$_KEYALRINS, FOUNDINTREE : 0340 
50 § 0 0 of 5$: MOVL FOUNDINTREE, RO 3 
00E 1 BRW 3 
58 68 ti 4 6$: MOVL (CURRENTNODE), CURRENTNODE : 034g 
A? 1 7 BSBB INSERT 3 ta 
56 D1 00059 CMPL FOUNDIATREE, #LIBS_KEYALRINS 3: 0544 
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IBSBINARY_TREE LIBSBINARY_TREE = Subrouti t i -Sep-1984 00:38: AX-11 - 4.0-74 
1858 , ubroutines to manipulate bal 16-Sep o84 00:38:93 Xx Oh eer teal 0-7 


I 
NSERT_NODE = insert node into balanced tree 14-Sep-19 


LIBRTL.SRC NTRE.B32;1 
79 13 BEQL 118 
000000006 8F 36 : cHPL FO NDINTREE, #LIBS$_INSVIRMEM 
51 5B DO 00068 MOVL § CURRENTNODE, DOWN_LEFT 
B : D $f MOVL § SAVE_CURRENT, CURRENTNODE 
8 D MOVL  DOWN"LEFT, (CURRENTNODE) 
0 0 . 7% BLBS IN BALANCE 
§ 08 AB 5 077 MOVAB (CURRENTNODE) , RO 
$ : 078 DECW (RO) 
1 ; 07D BEQL 13$ 
A8 60 €8 0007F BLBS (RO), 2$ 
51 6 0 99 Q MOVL § (CURRENTNODE), DOWN_LEFT 
08 Al B TSTW §(DOWNLEFT) 
OD 18 000 BGEQ $ 
68 04 Al DO OO008A MOVL §§ 4(DOWN_LEFT), (CURRENTNODE) 
04 Al 5B 00 oS MOVL CURRENTNODE, 4(DOWN_LEFT) 
60 Bs 0009 CLRW = (ROD 
0099 31 00094 BRW 16$ 
52 04 Al dO 00097 7s: MOVL 4(DOWN_LEFT), DOWN_RIGHT 
04 Al 62 DO 0009B MOVL (DOWN RIGHT), 4(DOQN LEFT) 
62 51 DO O009F MOVL DOWN CEFT, (DOWN RIGAT) 
6B 04 A2 DO 000A2 MOVL  4(DOQN_RIGHT), (TURRENTNODE) 
04 A2 5B DO O00A6 MOVL § CURRENTNODE, 4(DOWN_RIGHT) 
60 84 OOOAA CLRW = (ROD 
08 Al B4 QOOAC CLRW 8(DOWN_LEFT) 
08 A2 BS OOOAF TSTW 8 (DOWN"RIGHT) 
06 15 00082 BLE 8$ 
08 Al 01 AE 000B4 MNEGW #1, 8(DOWN_LEFT) 
05 11 00088 BRB 9$ 
03 18 OOOBA 8$: BGEQ 4=s«é9S. 
60 04 BO 000BC MOVW #1, (RO) 
5B 2 00 0008 9$ MOVL  DOWN_RIGHT, CURRENTNODE 
6F 11 000C2 BRB 17$ 
5B 04 a8 00 000C4 10$: MOVL  #$4(CURRENTNODE), CURRENTNODE 
FF35 30 000C8 BSBW  INSERT_NOD 
000000006 8F 36 D4 900¢B CMPL FOUNDIRTREE , #LIBS$_KEYALRINS 
000000006 8F 56 D1 000D4 CMPL §- FOUNDINTREE, #LIB$_INSVIRMEM 
59 1300008 11$:  BEQL 18$ 
52 5B 00 00000 MOVL § CURRENTNODE, DOWN _RIGHT 
58 6E DO O00E MOVL § SAVE_CURRENT, CURRENTNODE 
04 AB 38 09 OOE MOVL §§ DOWNTRIGHT, 4(CURRENTNODE) 
4C 5 f OOE? 12$:  BLBS IN BALANCE, 1 
50 08 AB QOEA MOVAB (TURRENTNODE) , RO 
6 ; INCW (RO) 
44 OOFO 13$:  BEQL 18$ 
46 60 £8 O00F2 BLBS RO), 198 
52 04 AB D GOF MOVL § 4(CURRENTNODE), DOWN_RIGHT 
08 A a 0 9 TSTW 8(DOWN_RIGHT) 
0 OFC BLEQ 3=s«14$ 
04 a : DO 000F MOVL § (DOWN_RIGHT), 4(CURRENTNODE) 
6 DO 0010 MOVL  CURRERTNODE, (DOWN_RIGHT) 
6 B4 1 CLRW = (RO) 
B6 11 001 BRB 9$ 
51 6 06 109 14$:  MOVL (DOWN RIGHT), DOWN LEFT 
62 04 Al dO 0010C MOVL 4 (DOWN LEFT). (DOWN RIGHT) 
04 Al 52 DO 00110 MGVL § DOWN_RIGHT, 4(DOWN_CEFT) 
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N 13 
1 IAAT TORE |, NARY TREE = Subroutines to manipulate bal 16-Sep AX=-11 Bliss-32 V4.0 
4188 Ager ert NODE - tener’ node into Belanced tree 12-388: 138 99: 38 7 LIBRTL.SRCILISBINTRE 882 1 
04 rt gt D 114 MOVL (DOWN LEFT), 4(CURRENTNODE) 
6 D 118 MOVL CURRERTNODE, (DOWN_LEFT) 
60 64 00118 CLRW (RO) 
08 A2 B4 00110 CLRW (DOWN_RIGHT) 
A BS 1 TSTW (DOWN-LEFT) 
6 1 BGEQ 5$ 
08 A2 1 6 1 MOVW #1, 8(DOWN_RIGHT) 
3 11 00129 BRB 16$ 
15 00128 15$: BLEQ 16$ 
60 1 ar 0120 MNEGW #1, (RO) 
58 1 DO 001 198: MOVL DOWN_LEF CURRENTNODE 
08 AB B64 00133 17$: CLRW 8(CURREN 
50 01 00 001 3 18$: MOVL #1, RO 
98 11 001 BRB 208 
50 D4 00138 19$: CLRL RO 
5E 04 CO 0013D 20$: ADDL2 #4, SP 
04 BA 00140 POPR #*M<R2> 
05 00142 RSB 
; Routine Size: 323 bytes, Routine Base: _LIBSCODE + 0000 
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LIBSBINARY_ TREE LIBSBINARY_TREE = Subroutines to manipul ste bal 16-Sep-19 4 90:38:93 AX-11 Oh lege 3s Veale ae Page 11 
1 LIBSINSERT_TREE = User entry to insert in tree 14-Sep-1984 12:38:26 LIBRTL.SRCJLIBBINTRE.B52;1 (5) 
> 366 4 § 1 ZSBTTL ‘LIBSINSERT_TREE = User entry to insert in tree‘ 
3 wer 4 1 GLOBAL ROUTINE LibSinsert_tree (treehead, symbolstring, control_flags, 
: 368 458 1 compare_rtn, alloc.rtn, blockaddr, user_data) = 
; ; 128 BEGIN 
3 4! acét This routine adds an entry tc a balanced binary tree 
: 37 468 2 | INPUTS: 
; 374 464 : 
* ore 465 : treehead Address of Listhead of tree 
a. B708 : symbolstring Address of name of thing to insert (this is simply passed along to the conpore 
s Sf 46 ! and allocation routines--the binary tree routines do not inspect this argume 
3 sre 468 : control_flags Address of control flags longwor 
; 379 469 : Bit 0 (tree$v_ins_dup) set ==> insert duplicate entries 
:; 380 0470 ' clear ==> return address of existing entry if duplicate 
; 381 0471 : compare_rtn Address of routine to do compare. Called via CALLS with 
; - 986: : three arguments. 4(AP)=Address of key, 8(AP)=Address of 
; 38 047 : current node to compare with, 12(AP) =user_data argument 
3 $ee 0474 : alloc rtn Address of routine to allocate new node. Called via CALLS 
3 339 0475 : with three arguments. 4(AP)=Address of key, 8(AP)=Address 
; 386 0476 2! of location to return allocated block address, 12(AP) = user_data argument 
3 387 0477 2! or 0 if none supplied 
; 388 0478 2! user_data OPTIONAL = Longword of context to pass to allocation 
3 360 0479 § ! routine. 
; 390 0480 : 
; 391 0481 ! OUTPUTS: 
; bees ! 
3; 048 : blockaddr Returns address of new (or found) entry 
; 394 0484 2! 
; 95 0485 ' ROUTINE VALUE: 
; 396 0486 : 
3; oof 0487 : Lib$_normal key inserted (success status) 
: 398 0488 2! Lib$_keyalrins ney found in tree, not inserted (alternate success status) 
3 ip eh 34 LibS_insvirmem allocation routine returned an error (error status) 
; 401 0491 MAP 
: 402 049 treehead : REF VECTORC,LONG], 
; 403 0493 2 control_flags : REF VECTORC,LONG); 
; 404 0494 
; 405 0495 GLOBAL REGISTER 
: 406 0496 currentnode = 11 : REF BLOCKC,BYTE), ‘Pointer to current node 
; 407 0497 2 keyname = 10 : REF VECTORL,BYTE), ‘Address of ney to insert 
; 408 0498 2 compare_routine = 9, ‘Address of caller's compare routine | 
; 409 0499 3 alloc_routine = 8, ‘Address of user's allocate node routine 
; 410 0500 blockretadr = 7 : REF VECTORC,LONG), ‘Address to return result address_ 
> 411 0501 § foundintree = 'True if found in tree, false if inserted 
; 216 Beng controlflags = § : BLOCKC4, BYTE], 'Caller control flags 
; (41 050 user_context = 4; ‘Caller context 
3: 414 0504 
3: 6415 0505 BUILTIN 
: 218 B208 NULLPARAMETER; 
3; 41 050 
: 418 B28 ‘ 
3 rth 4 Initialize registers 
; 5) 0811 currentnode = .treehead(0); ‘Get head of tree 
: 422 0512 keyname = .symbolstring; ‘Point to key 


14 
4! IBSBINARY_TREE LIBSBINARY_TREE = Subroutines to manipu upete bal 1§- -“Sep-19 
001 LIBSINSERT_TREE = User entry to insert in tree 14-Sep-1984 
> 423 13 compare_routine = .compare_rtn; 
3; 4626 14 alloc_routine = poses at" 
; 425 15 blockfetadr = tt o kaddr 
; 426 316 foundintree = (ibs normal; 
> be? 51 controlflags = .coftror _flags(01; 
; 428 218 IF NOT ae PARAMETER ( a 
; 429 51 THEN user_context = .user_data 
; : , B2 Y : ELSE user_context = 6; 
: 2 ¢ b2 § Call recursive routine to insert node into tree 
: 434 0524 insert_node(); 
: 435 0525 
:; 436 05 § IF .foundintree EQL_ Lib$_normal 
; ? ft Be 4 THEN treehead(0) = .Ccurrentnode; 
3; 439 0529 RETURN .foundintree 
: 440 0530 1 END; ! 
OFFC 00000 
52 00000000G 8F DO 00002 
58 04 BC DO 00009 
SA 08 AC DO 0000D 
59 10 AC 00 00011 
58 14 AC DO 00015 
57 18 AC DO 00019 
56 52 00 00010 
55 0c BC DO 00020 
07 6C 91 00024 
0B 1F 00027 
1¢ AC D5 00029 
06 13 0002C 
54 1¢ AC DO 0002E 
Of 11 00032 
4 D4 00034 1$: 
FE84 30 00036 2$: 
52 56 01 B28 9 
a OS ig $e 
8 6 D 2046 3$: 
04 0004 


; Routine Size: 70 bytes, Routine Base: _LIBSCODE + 0143 


Be 92:38:26 


art Bliss-32 Yr eee as 
LIBRTL.SRCJLIBBINTRE.852;1 
} ad 
i .o 
i a 
! 


+h. will not find in tree 


iPick up the caller's control flags | 
'If user songs argument supplied 


' then use 
i “otherwise “detent to 0 


‘Insert new node into tree 


‘If we inserted the node 
! then set new root of tree 


Return state of entry insert 
End of routine LIBSINSERT. TREE 


-ENTRY LIBSINSERT_TREE, Save R2,R3,R4,R5,R6,R7,R8,- 


R9,R10, 
MOVL #LIB$_NO 2 
MOVL §@TREEREAD “CORRENT NODE 
MOVL § SYMBOLSTRING, KEYNAME 
MOVL COMPARE ain COMPARE ROUTINE 
MOVL  ALLOC_RTN, Nacoc ROUT INE 
MOVL BLOCKADDR BLOCKRETADR 
MOVL TREE 
MOVL acONTROL | FLAGS. CONTROLFLAGS 
CMPB 
BLSSU_1$ 
TSTL 28(AP) 
BEQL ~=s«i1$ 
MOVL § USER_DATA, USER_CONTEXT 
BRB 2$ 
CLRL —*USER CONTEXT 
BSBW INSERT_NODE 
CMPL AOUNDIRTREE. R2 
BNEQ 3$ 
MOVL | CURRENTNODE, aTREEHEAD 
MOVL FOUNDINTREE. RO 


dress of compare routine 
dress of allocation routine 
ddress to return result in 


Pete Ge Se Ge Se Se Se Ge Ge Ge Se Ge Ge Ge Se Ge Se Ge Ge Be Be Be 


rolololol~l~l—l—) 
PAARAAAA 
— SS  .) ss os 2 
ONOUSWR— 


SS . . -——-4 
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BSBINARY_TREE = Subroutines to manipulate bal 16-Sep-1984 00:38:05 AX-11 Bliss-32 
LOOKUP_TREE = User entry to lookup in tree 12-Sep-19 4 99:38:58 LIBRTL.SRCILIB 


Ss 
1 ZSBTTL ‘LIBSLOOKUP_TREE = User entry to lookup in tree’ | 
GLOBAL ROUTINE Lib$STookup_tree (treehead, symbolstring, 
compare_rtn, blockaddr) = 
BEGIN 


i This routine adds an entry to a balanced binary tree 
INPUTS: 


treehead Address of Listhead of tree 

symbolstring Address of ASCIC symbol name 

compare_rtn Address of routine to do compare. Cal 
two arguments. RO=Address of key, R1= 
current node to compare with. 


V4 oes 
BINTRE .B52;1 


led via JSB with 
Address of 
OUTPUTS: 

blockaddr Returns address of new (or found) entry 
ROUTINE VALUE: 


Lib$_normal key found (success status) 
LibS_keynotfou key not found (error status) 


5 al he eee Sek al Sek ek ek eke a 
PAAEXREMMAMNANAVIUIUT ES & 
—"OVDONOULSWN—O” 


AP 
treehead : REF VECTORL,LONG] 
blockaddr : REF VECTORE,LONG; 


— 
Oo 


CAL 
ch_result; 


GLOBAL REGISTER 
currentnode = 11 : REF BLOCKC,BYTE], ‘Address of current node 
keyname = 10 : REF VECTORC,BYTE), ‘Address of key f 
compare_routine = 9; 'Caller's compare routine 


' 
Initialize registers 


currentnode = .treehead(0J; 'Get head of tree 
keyname = .symbolstring; ‘Point at key to lookup | 
compare_routine = .compare_rtn; 'Get caller compare routine address 


Search symbol table to see if already in table 
WHILE .currentnode NEQ 0 ‘While there is a node to examine 
DO IF (ch_result = ‘Compare key with current node 
(.compare_routine)(.keyname,.currentnode)) EQL 0 
THEN BEGIN 
Found -- return address to caller 


blockaddr(0) = .currentnode; 
RETURN Lib$_normal 


END 
ELSE IF .ch_ result LSS 0 'Test if left or right branch 
THEN currentnode = .currentnode(node$l_left) 
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ate bal 1b-Se ~Sep-19 4 t 99: 3: 9 ‘fs 


Subroutines to manipu 
User entry to lookup 


ELSE currentnode 


11 Bliss-32 v4.0 
BRTL-SRCILIBBINTRE B82; 1 


.currentnode(node$l_rightJ; 


RETURN Lib$_keynotfou 
END; 


Ocs 
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; Routine Size: -LIBSCODE + 0189 


‘Return entry not found 
! End of routine LIBSLOOKUP_ TREE 


ENTRY L1BSLOOKUP_ TREE Save. R9,R10,R11 
MOVL §§ @TREEHEAD, CURRENT 

MOVE SYMBOLSTRING, KEYN NABE” 

MOVL §_ COMPARE_RTN, COMPARE ROUTINE 
TSTL CURRENT TRODE 


BEQL 

MOVQ mi 

CALLS (CORPARE PROUTINE) 

TSTL 

BNEQ 

MOVL CORRENTNODE, @BLOCKADDR 
peye #LIBS _NORMAL, R RO 

BGEQ 3$ 

cee (CURRENTNODE), CURRENTNODE 
oo aarti CURRENTNODE 
pore A#LIBS_KEYNOTFOU, RO 
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LIBSBINARY_TREE = Subroutines to manipulate bal 16-Sep-1 
traverse_tree - Internal routine to traverse th 14-Sep-1 


i: 


ao 
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currentnode : REF BLOCKL,BYTE]; 


EXTERNAL REGISTER 
action_routine = 11, 
user_context = 10; 


LOCAL 


status, 
right_subtree : REF BLOCKC,BYTE); 


IF .currentnode EQL 0 
THEN RETURN Lib$_normal; 


IF .currentnode[node$l_left] NEQ 0 
THEN IF NOT (status = traverse_tree 


THEN RETURN .status; 


right_subtree = .currentnode(node$l_right]; 
IF NOT (status = (.action_routine)(.currentnode, .user_context))!Call user routine for current node 


THEN RETURN .status; 
IF .right_subtree NEQ 0 
NT 


F NOT (status = traverse_tree(.right_subtree)) 


THEN RETURN .status; 


5E 04 C2 00000 TRAVERSE ne 
SUBL 


RETUS8 Lib$_normal 
END; 
50 D 
3D 1 
00 . F 
2:9 
50 00 BE D 
3 1 
51 D 
27 , € 
50 6€ 04 C 
04 AE 60 D 


BE 

' 

Internal routine to traverse the tree recursively 
! INPUTS: 

| currentnode Address of current node 
MAP 


Oo DOOOWUIWNS 


4 00:38:05 AX-11 Bliss-32 V4.0-74 
3B 99:38:93 CTARTL SRESLIOBINTRE. B92: 1 
1 ZSBITL ‘traverse_tree - Internal routine to traverse the tree’ 
1 ayia traverse tree (currentnode) : jsb_traverse = 


‘Address of user routine to call 
'User_data argument 


'If current node null 
! then simply return 


'Process the left subtree if it exists 
(.currentnode(node$l_leftJ)) 


'Get pointer to right subtree 


'Process the right subtree if it exists 


'Of traverse_tree 


#4, SP 
RO 


$ 
| etacatt maa 


@CURRENTNODE, RO 
TRAVERSE_TREE 
RO, STAT 


TATUS 
#4, CURRENTNODE, RO 
(RO), RIGHT_SUBTREE 


faa 


. 
o 
. 

. 
- 

° 
7 
a 
. 

e 
o 
e 
. 
oO 
. 

o 

. 
. 
eo 
. 
o 
. 
e 
. 
o 
© 
ro 
o 
. 
7 
e 
. 
° 
. 
. 
. 
7 
. 
. 
. 
. 
. 
oe 
. 
a 
. 
e 
. 
° 
° 
o 
. 
. 
= 
2 
. 
. 

* 
° 

o 
o 

° 
. 
o 
. 
o 
+ 
e 
- 
o 

. 
9 
. 
. 
o 
eo 
. 
e 
o 
e 
o 
° 
o 
- 
. 
o 
. 
a 
. 
. 
. 
. 
° 
o 
© 
a 
o 
oe 
o 
- 
. 
a 
. 
e 
a 
a 
. 
o 
: 


IBSBINARY_TREE Teed TREE = Subroutines to manipulate bal 18-50 S$ep-1984 5 AX-11 Bliss-32 V Page 16 
4601 traverse_tree - Internal routine to traverse th 1 ets 7 99: 38: 8 LIBRTL.SRC (18 tN ioe ago, 31 . (7) 
5A 0D PUSHL USER_CONTEXT ; 0622 

04 AE DD PUSHL CURRENTNODE 3 

98 F CALLS #2, (ACTION_ROUTINE) : 

1 D OVL R ee 5 

11 E B BLBC = STATUS, 2$ ; 
04 AF : Ist RIGHT _SUBTREE + 0625 
50 04 ag D MOVL RIGHT_SUBTREE, RO 3; 0626 

1 BSBB TRAVERSE_TREE ; 

51 0 D 9 MOVL RO ae F 

9° 1 €£ C BLBS STATUS, 3$ ; 

0 1 » 6 F 2$: MOVL STATUS, RO s 

7 42 BRB 4$ ; 

50 00000000G 8F 08 044 3$: MOVL #188 NORMAL, RO 3 
5E 08 f° Oper 4$: goats #8, SP : 0631 


; Routine Size: 79 bytes, Routine Base: _LIBSCODE + 016 
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; Routine Size: 


H 14 

NARY TREE = Subroutines to manipulate bal 16-Sep-1984 00:38:05 AX-11 Bliss-32 V4.0-74 
AVERSE_TREE = traverse binary tree 14-Sep-19 4 9:38:96 CYERTL SRCILISBINTRE.BS2;1 

ZSBTTL SE PETRAVERSE TREE - traverse binary tree’ 

stent ROUTINE LibStraverse_tree (treehead, action_rtn, user_data) = 

i 

} This routine calls a routine for each node in the tree (in order) 

i INPUTS 

i treehead Address of Listhead of tree 

: action_rtn Address of action routine to call 

: alled with 2 args. 4(AP) = node address, 

; (AP) = user_data argument 

user_data OPTIONAL = Longword of context passed to action routine 

; ROUTINE VALUE: 

i Lib$_normal Traversal completed successfully 

te any other status Code returned by action routine 


P 
treehead : REF VECTORC,LONG); 


GLOBAL REGISTER 


action_routine = 11, 'Keep address of routine in a register 


user_context = 10; 


BUILTI 


a 
I 


N 
NULLPARAME TER; 


ction_routine = .action_rtn; 
F NULCPARAMETER(3) 
THEN user_context 
ELSE user_context 


'Set action routine address 


'Send a 0 if not specified 
-user_data; 'Pick up user_data 


ETURN traverse_tree (.treehead(0]) 'Call routine to traverse the tree recursively 
ND; ! End of routine LIBSTRAVERSE_TREE 
0c00 60000 ENTRY LIBSTRAVERSE_TREE, Save R10,R11 
38 08 aC 00 00002 MOVL ACTION_RTN, ACTION_ROUTINE 
0 6c 91 BR88 CMPB (AP), #3 
05 iF 000 BLSSU _1$ 
Oc AC 05 00008 TSTL 12¢AP) 
9% 12 0000 BNEQ 2$ 
A D4 00010 1$: CLRL YSER_CONTEXT 
04 11 id BRB $ 
5A oc ac 00 14 $3: MOVL USER_DATA, USER_CONTEXT 
50 04 Bg it 018 3%: MOVL @TREEHEAD, RO 
10 0001C BSBB ~=—Ss TRAVERSE_TREE 
04 OOO1E RET 
31 bytes, Routine Base: _LIBSCODE + 0215 
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0665 
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INARY_TREE L Lose! 


NARY 
AVERS 


EMRE = 


Subroutines 
traverse b 


j 


© manipulate bal 1 
nary tree 


ifSeort9Rs 00:38:05 yAteIt elias sz w4.g-74g, 


W=boT RY-"*EE LIBSTRAVERSE TREE = treverse binary treene’ hat ep-198¢ 19:38:06 — Eefertu srediieelntre 692; tee 
38s Ort 1 END ! End of module LIBSBINARY_TREE 
672 , ELUDOM 
PSECT SUMMARY 
Name Bytes Attributes 
_LIBSCODE 564 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) 


Library Statistics 


ccccece Symbols -------- Pages Processing 
File Total Loaded Percent Mapped Time 
.$255$0UA28: CSYSLIBISTARLET.L32;1 9776 0 0 581 00:00.8 


COMMAND QUALIFIERS 
BLISS/CHECK= (FIELD. INITIAL OPTIMIZE) /NOTRACE/LIS#LISS:LIBBINTRE/08J=08)$:L IBBINTRE MSRC$:LIBBINTRE/UPDATE=(ENH$:LIBBINTRE 


Sizes 564 code + 0 data bytes 
un Time: 00:10.8 

pe Time: 00:48.8 

Lines/CPU Min 3733 


Used: ins, pages 
ion Complete 


PMENT CORPORATION | 
AND PROPRIETARY 


AH-BT13A-SE 
VAX/VMS V4.0 
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